10 PRINT"[147]":POKE53281,1:POKE53280,5:READP1$,P2,P3$,P4:GOTO710
12 READP1$,P2,P3$,P4:B=54272
15 FORI=BTOB+24:POKEI,0:NEXT:VO=B+24:AD=B+5:SR=AD+1:HF=B+1:LF=B:POKEAD,20
16 POKESR,200:SO=B+4:GOTO130
20 POKESO,32:RETURN
30 POKEHF,50:POKELF,40:POKESO,33:FORM=1TOC:NEXT:GOTO20
40 F=INT(RND(1)*9):RETURN
50 POKESO,33:FORL=99TO255:POKEHF,L:POKELF,50:NEXT:GOSUB20:GOTO1050
60 POKESO,33:POKEHF,60:POKELF,50:FORM=1TO400:NEXT:GOTO20
70 PRINTM$;"        PRESS RETURN TO CHANGE":RETURN
80 PRINTM$;"             ENTER DIGIT[146]        ":RETURN
90 IFF>5THENL=126:IFF>9THENL=108:M=1:IFF>30THENL=90:M=0:IFF>50THENL=108:M=1
100 IFF>99THENF=0
110 POKEE,L:POKEE+1,L:GOTO430
120 PRINT"":PRINTTAB(L);M$;O$;:POKEVO,15:GOSUB30:POKEVO,O:PRINTN$:RETURN
130 POKE649,1:M$=" [206][163][163][205] [157][157][157][157][157][157] [205][218][218][206] [157][157][157][157][157][157] [187][204][186][172] [157][157][157][157][157][157] [169][171][179][223] [157][157][157][157][157][157]  [207][208]"
140 M$=M$+"  [157][157][157][157][157][157] [169]  [223][146] "
150 N$="[157][157][157][157][157][157] [215][215][215][215] ":O$="[157][157][157][157][157][157] [218][218][218][218] "
160 PRINT"[147] M=MENU-----------------------DEL=ERASE [146]"
165 POKE214,23:PRINT:POKE211,15
170 L8=48:POKE143,PEEK(162):GOTO1050
180 POKE651,255:PRINT"":R=54272:S=1561:Y=P2:E=1106:RW=16:WR=RW-4:POKEVO,15
190 IFP2=3THENRW=17:WR=RW-5
200 IFP1$="-"ORP2=1ORP2>3THENY=2
210 POKE214,RW:PRINT:POKE211,17:PRINT"       "
220 FORI=P2TO1STEP-1:A(I)=0:S(I)=0:FORK=1TOY:GOSUB30:GOSUB40
230 A(I)=A(I)+F:S(I)=S(I)-F
240 M=(K*40)+I:POKER+S+M,0:POKES+M,F+48:IFK=1THENL1=F
250 NEXT:IFP1$="-"THENGOSUB660:GOTO270
260 L=A(I):N=9:GOTO280
270 S(I)=S(I)+2*L1:L=S(I):N=0
280 GOSUB580:A(I)=L
290 NEXTI
300 FORK=1TOY:FORI=1TOP2
310 M=K*40+I:IFPEEK(S+M)>48THEN340
320 IFI=P2THENV=1
330 POKES+M,32:NEXT
340 NEXTK:IFV=1THENV=0:GOTO180
350 A=0:U=-1:FORI=P2TO1STEP-1:U=U+1:IFP1$="-"THENA=A+S(I)*10^U:GOTO370
360 A=A+A(I)*10^U
370 NEXT
380 A=INT(A):L2=0:IFA<0THEN180
390 FORI=2TOY:POKE214,WR+I:PRINT:POKE211,17:PRINT"[144]"P1$:NEXT
400 POKE160,0:POKE161,0:POKE162,0
410 FORK=0TOP2:POKE214,RW-1:PRINT:POKE211,17+K:PRINT"[195]":NEXT
420 U=LEN(STR$(A))-2:I=0:L1=0:FORK=P2TOP2-USTEP-1
430 FORM=15TO17:POKEM+E+R+280,0:POKEM+E+280,ASC(MID$(TI$,M-11))+128:NEXT
440 IFTI$="000400"THENGOSUB60:GOTO550
450 GETA$:IFA$=""THENL=124:F=F+1:GOTO90
460 IFASC(A$)=20THENPOKE214,RW:PRINT:POKE211,17:PRINT"       ":GOTO420
470 IFA$="M"THEN710
480 IFA$<"0"ORA$>"9"THEN440
490 PRINT"":L1=INT(L1+VAL(A$)*10^I):I=I+1
500 POKE214,RW:PRINT:POKE211,17+K:PRINTA$:NEXT
510 IFL1=ATHENGOTO50
520 IFL1<>ATHENGOSUB60
530 L2=L2+1:IFL2>2THEN550
540 GOTO410
550 V=0:AN$=STR$(A):L=LEN(AN$):IFL>P2+1THENV=1
560 IFL-1<P2THENV=L-1-P2
570 POKE214,RW:PRINT:POKE211,18-V:PRINT"";MID$(AN$,2,8):FORK=1TO3500:NEXT:GOTO180
580 IFP3$="N"ANDP1$="+"THEN610
590 GOSUB40:X=1:IFL<N+FTHEN630
600 RETURN
610 IFL>NTHENX=-1:GOTO630
620 RETURN
630 L=0:FORK=1TOY:M=(K*40)+I:F=PEEK(S+M)+X:IFF<48THENF=48
640 IFF>57THENF=57
650 POKES+M,F:L=L+(F-48):NEXT:GOTO580
660 IFP3$="N"THEN690
670 IFI=1ORF>=L1THENRETURN
680 GOTO700
690 IFF<L1THENRETURN
700 POKES+M,L1+48:POKES+M-40,F+48:S(I)=(-F)-L1:L1=F:RETURN
710 M$=""
720 PRINT"[147][144]OPERATION (+/-).... ";P1$
730 PRINT"# DIGITS (MAX=6)...";P2
740 PRINT"CARRY/BORROW....... ";P3$
750 PRINT"# PROBLEMS (MAX=9).";P4
760 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197]
770 [141]70:[153]"     (B TO BEGIN)";
780 [153]"SELECT:USE CRSR(UP/DN)STOP"
790 M[178]1152
800 [139]M1[178]1392[167]M[178]1152
810 [129]I[178]M[164]M[170]20:X[178][194](I):[151]I,X[170]128:[130]
820 [161]A$:[139]A$[178]""[167]820
830 [139][197](A$)[179]10[175][197](A$)[177]0[167]950
840 [139]A$[178]"+"[176]A$[178]"-"[176]A$[178]"Y"[176]A$[178]"N"[176][194](197)[178]1[167]A$[178]"1":[137]950
850 [139]A$[178]""[167]900
860 [139]A$[178]"ON"[167]940
870 [139]A$[179][177]"B"[167]820
880 [153]"LOAD1040 DATA";P1$;",";P2;",";P3$;",";P4:[153]"RUN12";""
890 :[151]198,3:[151]631,13:[151]632,13:[151]633,13:[128]
900 M2[178]M2[171]1:K[178]80
910 M[178]M[170]K:[129]I[178]M[171]K[164]M[171]K[170]20:X[178][194](I):[151]I,X[171]128:[130]:[139]M[177]1392[167]M[178]1152
920 [139]M[179]1152[167]M[178]1392
930 [145](M[171]1064)[173]80[141]70,80,70,80:[137]800
940 M2[178]M2[171]1:K[178][171]80:[137]910
950 [145](M[171]1152)[173]80[137]980,1000,1030:[139]P1$[178]"+"[167]P1$[178]"-":[137]970
960 P1$[178]"+"
970 [151]M[170]20,[198](P1$)[170]128:[137]820
980 [139][197](A$)[177]6[167]A$[178]"6"
990 P2[178][197](A$):[151]M[170]20,P2[170]176:[137]820
1000 [139]P3$[178]"N"[167]P3$[178]"Y":[137]1020
1010 P3$[178]"N"
1020 [151]M[170]20,64[170][198](P3$):[137]820
1030 P4[178][197](A$):[151]M[170]20,P4[170]176:[137]820
1040 [131]-, 2 ,N, 2
1050 C[178]0:[153]"STOP":[129]L[178]0[164]34:[141]120:[130]
1060 [129]L[178]33[164]0[169][171]1:[141]120:[130]:[153]"":C[178]40
1070 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
1080 L8[178]L8[170]1:[139]L8[171]48[177]P4[167]1120
1090 M[178]53247[170]8[172]L8:[153]"";
1100 [129]M1[178]M[164]M[170]7:X[178][194](M1):[129]L[178]1[164]7:C[178]32:X[178]X[172]2:[139]X[177]255[167]X[178]X[171]256:C[178]209
1110 [153][163]30)"STOP"[199](C);:[130]:[153]"CMDCMDCMDCMDCMDCMDCMD";:[130]
1120 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
1130 [139]L8[171]48[177]P4[167]1150
1140 [137]180
1150 [153]"LOAD":[151]214,12:[153]:[151]211,4
1155 [153]"STOPHOW ABOUT ANOTHER GAME (Y/N)?WAIT"
1160 [161]Z$:[139]Z$[178]""[176](Z$[179][177]"Y"[175]Z$[179][177]"N")[167]1160
1170 [139]Z$[178]"Y"[167][140]:[156]:[137]10
1180 [128]